/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserRulesGrid_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 51 24 2f 2f 3d 3d 3d 3d |........|Q$//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 55 42 |========|=..// UB|
|00000060| 72 6f 77 73 65 72 52 75 | 6c 65 73 47 72 69 64 0d |rowserRu|lesGrid.|
|00000070| 0a 2f 2f 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.//=====|========|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 0d 0a 63 6c 61 73 73 20 | 55 42 72 6f 77 73 65 72 |..class |UBrowser|
|000000d0| 52 75 6c 65 73 47 72 69 | 64 20 65 78 74 65 6e 64 |RulesGri|d extend|
|000000e0| 73 20 55 57 69 6e 64 6f | 77 47 72 69 64 3b 0d 0a |s UWindo|wGrid;..|
|000000f0| 0d 0a 76 61 72 20 6c 6f | 63 61 6c 69 7a 65 64 20 |..var lo|calized |
|00000100| 73 74 72 69 6e 67 20 52 | 75 6c 65 54 65 78 74 3b |string R|uleText;|
|00000110| 0d 0a 76 61 72 20 6c 6f | 63 61 6c 69 7a 65 64 20 |..var lo|calized |
|00000120| 73 74 72 69 6e 67 20 56 | 61 6c 75 65 54 65 78 74 |string V|alueText|
|00000130| 3b 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 43 72 |;....fun|ction Cr|
|00000140| 65 61 74 65 64 28 29 20 | 0d 0a 7b 0d 0a 09 53 75 |eated() |..{...Su|
|00000150| 70 65 72 2e 43 72 65 61 | 74 65 64 28 29 3b 0d 0a |per.Crea|ted();..|
|00000160| 0d 0a 09 52 6f 77 48 65 | 69 67 68 74 20 3d 20 31 |...RowHe|ight = 1|
|00000170| 32 3b 0d 0a 0d 0a 09 41 | 64 64 43 6f 6c 75 6d 6e |2;.....A|ddColumn|
|00000180| 28 52 75 6c 65 54 65 78 | 74 2c 20 31 35 30 29 3b |(RuleTex|t, 150);|
|00000190| 0d 0a 09 41 64 64 43 6f | 6c 75 6d 6e 28 56 61 6c |...AddCo|lumn(Val|
|000001a0| 75 65 54 65 78 74 2c 20 | 31 35 30 29 3b 0d 0a 7d |ueText, |150);..}|
|000001b0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 50 61 69 |....func|tion Pai|
|000001c0| 6e 74 43 6f 6c 75 6d 6e | 28 43 61 6e 76 61 73 20 |ntColumn|(Canvas |
|000001d0| 43 2c 20 55 57 69 6e 64 | 6f 77 47 72 69 64 43 6f |C, UWind|owGridCo|
|000001e0| 6c 75 6d 6e 20 43 6f 6c | 75 6d 6e 2c 20 66 6c 6f |lumn Col|umn, flo|
|000001f0| 61 74 20 4d 6f 75 73 65 | 58 2c 20 66 6c 6f 61 74 |at Mouse|X, float|
|00000200| 20 4d 6f 75 73 65 59 29 | 20 0d 0a 7b 0d 0a 09 6c | MouseY)| ..{...l|
|00000210| 6f 63 61 6c 20 55 42 72 | 6f 77 73 65 72 53 65 72 |ocal UBr|owserSer|
|00000220| 76 65 72 4c 69 73 74 20 | 53 65 72 76 65 72 3b 0d |verList |Server;.|
|00000230| 0a 09 6c 6f 63 61 6c 20 | 55 42 72 6f 77 73 65 72 |..local |UBrowser|
|00000240| 52 75 6c 65 73 4c 69 73 | 74 20 52 75 6c 65 73 4c |RulesLis|t RulesL|
|00000250| 69 73 74 2c 20 6c 3b 0d | 0a 09 6c 6f 63 61 6c 20 |ist, l;.|..local |
|00000260| 69 6e 74 20 56 69 73 69 | 62 6c 65 3b 0d 0a 09 6c |int Visi|ble;...l|
|00000270| 6f 63 61 6c 20 69 6e 74 | 20 43 6f 75 6e 74 3b 0d |ocal int| Count;.|
|00000280| 0a 09 6c 6f 63 61 6c 20 | 69 6e 74 20 53 6b 69 70 |..local |int Skip|
|00000290| 70 65 64 3b 0d 0a 09 6c | 6f 63 61 6c 20 69 6e 74 |ped;...l|ocal int|
|000002a0| 20 59 3b 0d 0a 09 6c 6f | 63 61 6c 20 69 6e 74 20 | Y;...lo|cal int |
|000002b0| 54 6f 70 4d 61 72 67 69 | 6e 3b 0d 0a 09 6c 6f 63 |TopMargi|n;...loc|
|000002c0| 61 6c 20 69 6e 74 20 42 | 6f 74 74 6f 6d 4d 61 72 |al int B|ottomMar|
|000002d0| 67 69 6e 3b 0d 0a 09 0d | 0a 09 69 66 28 62 53 68 |gin;....|..if(bSh|
|000002e0| 6f 77 48 6f 72 69 7a 53 | 42 29 0d 0a 09 09 42 6f |owHorizS|B)....Bo|
|000002f0| 74 74 6f 6d 4d 61 72 67 | 69 6e 20 3d 20 4c 6f 6f |ttomMarg|in = Loo|
|00000300| 6b 41 6e 64 46 65 65 6c | 2e 53 69 7a 65 5f 53 63 |kAndFeel|.Size_Sc|
|00000310| 72 6f 6c 6c 62 61 72 57 | 69 64 74 68 3b 0d 0a 09 |rollbarW|idth;...|
|00000320| 65 6c 73 65 0d 0a 09 09 | 42 6f 74 74 6f 6d 4d 61 |else....|BottomMa|
|00000330| 72 67 69 6e 20 3d 20 30 | 3b 0d 0a 0d 0a 09 54 6f |rgin = 0|;.....To|
|00000340| 70 4d 61 72 67 69 6e 20 | 3d 20 4c 6f 6f 6b 41 6e |pMargin |= LookAn|
|00000350| 64 46 65 65 6c 2e 43 6f | 6c 75 6d 6e 48 65 61 64 |dFeel.Co|lumnHead|
|00000360| 69 6e 67 48 65 69 67 68 | 74 3b 0d 0a 09 0d 0a 09 |ingHeigh|t;......|
|00000370| 53 65 72 76 65 72 20 3d | 20 55 42 72 6f 77 73 65 |Server =| UBrowse|
|00000380| 72 49 6e 66 6f 43 6c 69 | 65 6e 74 57 69 6e 64 6f |rInfoCli|entWindo|
|00000390| 77 28 47 65 74 50 61 72 | 65 6e 74 28 63 6c 61 73 |w(GetPar|ent(clas|
|000003a0| 73 27 55 42 72 6f 77 73 | 65 72 49 6e 66 6f 43 6c |s'UBrows|erInfoCl|
|000003b0| 69 65 6e 74 57 69 6e 64 | 6f 77 27 29 29 2e 53 65 |ientWind|ow')).Se|
|000003c0| 72 76 65 72 3b 0d 0a 09 | 69 66 28 53 65 72 76 65 |rver;...|if(Serve|
|000003d0| 72 20 3d 3d 20 4e 6f 6e | 65 29 0d 0a 09 09 72 65 |r == Non|e)....re|
|000003e0| 74 75 72 6e 3b 0d 0a 09 | 52 75 6c 65 73 4c 69 73 |turn;...|RulesLis|
|000003f0| 74 20 3d 20 53 65 72 76 | 65 72 2e 52 75 6c 65 73 |t = Serv|er.Rules|
|00000400| 4c 69 73 74 3b 0d 0a 09 | 69 66 28 52 75 6c 65 73 |List;...|if(Rules|
|00000410| 4c 69 73 74 20 3d 3d 20 | 4e 6f 6e 65 29 0d 0a 09 |List == |None)...|
|00000420| 09 72 65 74 75 72 6e 3b | 0d 0a 09 43 6f 75 6e 74 |.return;|...Count|
|00000430| 20 3d 20 52 75 6c 65 73 | 4c 69 73 74 2e 43 6f 75 | = Rules|List.Cou|
|00000440| 6e 74 28 29 3b 0d 0a 0d | 0a 09 43 2e 46 6f 6e 74 |nt();...|..C.Font|
|00000450| 20 3d 20 52 6f 6f 74 2e | 46 6f 6e 74 73 5b 46 5f | = Root.|Fonts[F_|
|00000460| 4e 6f 72 6d 61 6c 5d 3b | 0d 0a 09 56 69 73 69 62 |Normal];|...Visib|
|00000470| 6c 65 20 3d 20 69 6e 74 | 28 28 57 69 6e 48 65 69 |le = int|((WinHei|
|00000480| 67 68 74 20 2d 20 28 54 | 6f 70 4d 61 72 67 69 6e |ght - (T|opMargin|
|00000490| 20 2b 20 42 6f 74 74 6f | 6d 4d 61 72 67 69 6e 29 | + Botto|mMargin)|
|000004a0| 29 2f 52 6f 77 48 65 69 | 67 68 74 29 3b 0d 0a 09 |)/RowHei|ght);...|
|000004b0| 0d 0a 09 56 65 72 74 53 | 42 2e 53 65 74 52 61 6e |...VertS|B.SetRan|
|000004c0| 67 65 28 30 2c 20 43 6f | 75 6e 74 2b 31 2c 20 56 |ge(0, Co|unt+1, V|
|000004d0| 69 73 69 62 6c 65 29 3b | 0d 0a 09 54 6f 70 52 6f |isible);|...TopRo|
|000004e0| 77 20 3d 20 56 65 72 74 | 53 42 2e 50 6f 73 3b 0d |w = Vert|SB.Pos;.|
|000004f0| 0a 0d 0a 09 53 6b 69 70 | 70 65 64 20 3d 20 30 3b |....Skip|ped = 0;|
|00000500| 0d 0a 0d 0a 09 59 20 3d | 20 31 3b 0d 0a 09 6c 20 |.....Y =| 1;...l |
|00000510| 3d 20 55 42 72 6f 77 73 | 65 72 52 75 6c 65 73 4c |= UBrows|erRulesL|
|00000520| 69 73 74 28 52 75 6c 65 | 73 4c 69 73 74 2e 4e 65 |ist(Rule|sList.Ne|
|00000530| 78 74 29 3b 0d 0a 09 77 | 68 69 6c 65 28 28 59 20 |xt);...w|hile((Y |
|00000540| 3c 20 52 6f 77 48 65 69 | 67 68 74 20 2b 20 57 69 |< RowHei|ght + Wi|
|00000550| 6e 48 65 69 67 68 74 20 | 2d 20 52 6f 77 48 65 69 |nHeight |- RowHei|
|00000560| 67 68 74 20 2d 20 28 54 | 6f 70 4d 61 72 67 69 6e |ght - (T|opMargin|
|00000570| 20 2b 20 42 6f 74 74 6f | 6d 4d 61 72 67 69 6e 29 | + Botto|mMargin)|
|00000580| 29 20 26 26 20 28 6c 20 | 21 3d 20 4e 6f 6e 65 29 |) && (l |!= None)|
|00000590| 29 20 0d 0a 09 7b 0d 0a | 09 09 69 66 28 53 6b 69 |) ...{..|..if(Ski|
|000005a0| 70 70 65 64 20 3e 3d 20 | 56 65 72 74 53 42 2e 50 |pped >= |VertSB.P|
|000005b0| 6f 73 29 0d 0a 09 09 7b | 0d 0a 09 09 09 73 77 69 |os)....{|.....swi|
|000005c0| 74 63 68 28 43 6f 6c 75 | 6d 6e 2e 43 6f 6c 75 6d |tch(Colu|mn.Colum|
|000005d0| 6e 4e 75 6d 29 0d 0a 09 | 09 09 7b 0d 0a 09 09 09 |nNum)...|..{.....|
|000005e0| 63 61 73 65 20 30 3a 0d | 0a 09 09 09 09 43 6f 6c |case 0:.|.....Col|
|000005f0| 75 6d 6e 2e 43 6c 69 70 | 54 65 78 74 28 20 43 2c |umn.Clip|Text( C,|
|00000600| 20 32 2c 20 59 20 2b 20 | 54 6f 70 4d 61 72 67 69 | 2, Y + |TopMargi|
|00000610| 6e 2c 20 6c 2e 52 75 6c | 65 20 29 3b 0d 0a 09 09 |n, l.Rul|e );....|
|00000620| 09 09 62 72 65 61 6b 3b | 0d 0a 09 09 09 63 61 73 |..break;|.....cas|
|00000630| 65 20 31 3a 0d 0a 09 09 | 09 09 43 6f 6c 75 6d 6e |e 1:....|..Column|
|00000640| 2e 43 6c 69 70 54 65 78 | 74 28 20 43 2c 20 32 2c |.ClipTex|t( C, 2,|
|00000650| 20 59 20 2b 20 54 6f 70 | 4d 61 72 67 69 6e 2c 20 | Y + Top|Margin, |
|00000660| 6c 2e 56 61 6c 75 65 20 | 29 3b 0d 0a 09 09 09 09 |l.Value |);......|
|00000670| 62 72 65 61 6b 3b 0d 0a | 09 09 09 7d 0d 0a 0d 0a |break;..|...}....|
|00000680| 09 09 09 59 20 3d 20 59 | 20 2b 20 52 6f 77 48 65 |...Y = Y| + RowHe|
|00000690| 69 67 68 74 3b 09 09 09 | 0d 0a 09 09 7d 20 0d 0a |ight;...|....} ..|
|000006a0| 09 09 53 6b 69 70 70 65 | 64 20 2b 2b 3b 0d 0a 09 |..Skippe|d ++;...|
|000006b0| 09 6c 20 3d 20 55 42 72 | 6f 77 73 65 72 52 75 6c |.l = UBr|owserRul|
|000006c0| 65 73 4c 69 73 74 28 6c | 2e 4e 65 78 74 29 3b 0d |esList(l|.Next);.|
|000006d0| 0a 09 7d 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |..}..}..|..functi|
|000006e0| 6f 6e 20 52 69 67 68 74 | 43 6c 69 63 6b 52 6f 77 |on Right|ClickRow|
|000006f0| 28 69 6e 74 20 52 6f 77 | 2c 20 66 6c 6f 61 74 20 |(int Row|, float |
|00000700| 58 2c 20 66 6c 6f 61 74 | 20 59 29 0d 0a 7b 0d 0a |X, float| Y)..{..|
|00000710| 09 6c 6f 63 61 6c 20 55 | 42 72 6f 77 73 65 72 49 |.local U|BrowserI|
|00000720| 6e 66 6f 4d 65 6e 75 20 | 4d 65 6e 75 3b 0d 0a 09 |nfoMenu |Menu;...|
|00000730| 6c 6f 63 61 6c 20 66 6c | 6f 61 74 20 4d 65 6e 75 |local fl|oat Menu|
|00000740| 58 2c 20 4d 65 6e 75 59 | 3b 0d 0a 09 6c 6f 63 61 |X, MenuY|;...loca|
|00000750| 6c 20 55 57 69 6e 64 6f | 77 57 69 6e 64 6f 77 20 |l UWindo|wWindow |
|00000760| 57 3b 0d 0a 0d 0a 09 57 | 20 3d 20 47 65 74 50 61 |W;.....W| = GetPa|
|00000770| 72 65 6e 74 28 63 6c 61 | 73 73 27 55 42 72 6f 77 |rent(cla|ss'UBrow|
|00000780| 73 65 72 49 6e 66 6f 57 | 69 6e 64 6f 77 27 29 3b |serInfoW|indow');|
|00000790| 0d 0a 09 69 66 28 57 20 | 3d 3d 20 4e 6f 6e 65 29 |...if(W |== None)|
|000007a0| 0d 0a 09 09 72 65 74 75 | 72 6e 3b 0d 0a 09 4d 65 |....retu|rn;...Me|
|000007b0| 6e 75 20 3d 20 55 42 72 | 6f 77 73 65 72 49 6e 66 |nu = UBr|owserInf|
|000007c0| 6f 57 69 6e 64 6f 77 28 | 57 29 2e 4d 65 6e 75 3b |oWindow(|W).Menu;|
|000007d0| 0d 0a 0d 0a 09 57 69 6e | 64 6f 77 54 6f 47 6c 6f |.....Win|dowToGlo|
|000007e0| 62 61 6c 28 58 2c 20 59 | 2c 20 4d 65 6e 75 58 2c |bal(X, Y|, MenuX,|
|000007f0| 20 4d 65 6e 75 59 29 3b | 0d 0a 09 4d 65 6e 75 2e | MenuY);|...Menu.|
|00000800| 57 69 6e 4c 65 66 74 20 | 3d 20 4d 65 6e 75 58 3b |WinLeft |= MenuX;|
|00000810| 0d 0a 09 4d 65 6e 75 2e | 57 69 6e 54 6f 70 20 3d |...Menu.|WinTop =|
|00000820| 20 4d 65 6e 75 59 3b 0d | 0a 0d 0a 09 4d 65 6e 75 | MenuY;.|....Menu|
|00000830| 2e 53 68 6f 77 57 69 6e | 64 6f 77 28 29 3b 0d 0a |.ShowWin|dow();..|
|00000840| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 6f |}....fun|ction So|
|00000850| 72 74 43 6f 6c 75 6d 6e | 28 55 57 69 6e 64 6f 77 |rtColumn|(UWindow|
|00000860| 47 72 69 64 43 6f 6c 75 | 6d 6e 20 43 6f 6c 75 6d |GridColu|mn Colum|
|00000870| 6e 29 20 0d 0a 7b 0d 0a | 09 55 42 72 6f 77 73 65 |n) ..{..|.UBrowse|
|00000880| 72 49 6e 66 6f 43 6c 69 | 65 6e 74 57 69 6e 64 6f |rInfoCli|entWindo|
|00000890| 77 28 47 65 74 50 61 72 | 65 6e 74 28 63 6c 61 73 |w(GetPar|ent(clas|
|000008a0| 73 27 55 42 72 6f 77 73 | 65 72 49 6e 66 6f 43 6c |s'UBrows|erInfoCl|
|000008b0| 69 65 6e 74 57 69 6e 64 | 6f 77 27 29 29 2e 53 65 |ientWind|ow')).Se|
|000008c0| 72 76 65 72 2e 52 75 6c | 65 73 4c 69 73 74 2e 53 |rver.Rul|esList.S|
|000008d0| 6f 72 74 42 79 43 6f 6c | 75 6d 6e 28 43 6f 6c 75 |ortByCol|umn(Colu|
|000008e0| 6d 6e 2e 43 6f 6c 75 6d | 6e 4e 75 6d 29 3b 0d 0a |mn.Colum|nNum);..|
|000008f0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|00000900| 6c 65 63 74 52 6f 77 28 | 69 6e 74 20 52 6f 77 29 |lectRow(|int Row)|
|00000910| 0d 0a 7b 0d 0a 7d 0d 0a | 0d 0a 00                |..{..}..|...     |
+--------+-------------------------+-------------------------+--------+--------+